CAAIlluminatedFraction_NeptuneMagnitudeAA <-
function(r, Delta){
.Call("CAAIlluminatedFraction_NeptuneMagnitudeAA", r, Delta)
}
